home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 February
/
64er_Magazin_90-02_1990_Markt__Technik_de_Side_A.d64
/
mini-ass demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
188 lines
30 fori=1to56:readi$:next:dl=peek(65):dh=peek(66):fori=1to12:readi$:next:readpz
31 z=2:f=0:d=0:readb$:bl=peek(65):bh=peek(66):zl=peek(63):zh=peek(64):l$=left$(b$,3):restore
32 op$="0":h$=mid$(b$,5,1):l=len(b$):fori=1to56:readv$:on(l$=left$(v$,3))+2goto33:next:goto40
33 z$="":poke65,dl:poke66,dh:fori=6tol:on-(l<6)goto35:z$=mid$(b$,i,1):h=asc(z$)
34 ifh>47thenifh<71thenh$=h$+" ":op$=op$+z$:z$=""
35 h$=h$+z$:next:fori=1to12:readaf$:on(h$=af$)+2goto36:next:goto40
36 z=z+2:h=asc(mid$(v$,z,1)):z=z-(h>80):f=f+1-(h>80)*(h-80):on-(f>i)goto 40
37 on-(i>f)goto36:m$=mid$(v$,z,2):h=asc(m$):pokepz,(h-65)*16+asc(right$(m$,1))-65
38 printpz,b$:pz=pz+1:fori=1tolen(op$):h=asc(mid$(op$,i,1))-48:d=d*16+h+(h>16)*7:next
39 g=int(d/256):pokepz,d-g*256:pokepz+1,g:pz=pz+int(len(op$)/2):poke65,bl:poke66,bh:goto31
40 print" syntax error in";zl+zh*16:end:dataldaqkjknkflnljlflbkbs,starinifjnjjjfjbibs
41 dataldxqkckokgqloslgr,stxrioigujgr,ldyqkakmkelmqleu,styrimierjeu,incrooogpoqpgu
42 datadecrmomgnoqngu,jsrrcay,jmpremxgm,adcqgjgngfhnhjhfhbgbs,sbcqojonofpnpjpfpbobs
43 datainxoi\,inymi\,dexmk\,deyii\,beqqpa[,bneqna[,bcsqla[,bccqja[,bmiqda[,bplqba[
44 dataandqcjcncfdndjdfdbcbs,oraqajanafbnbjbfbbabs,eorqejeneffnfjfffbebs,bitrcmcex
45 datacmpqmjmnmfnnnjnfnbmbs,cpxqoaomoex,cpyqmammmex,bvsqha[,bvcqfa[,rtsga\,rtiea\
46 datataxkk\,txaik\,tayki\,tyaji\,clcbi\,secdi\,cldni\,sedpi\,clifi\,seihi\,clvli\
47 dataphaei\,plagi\,phpai\,plpci\,txsjk\,tsxlk\,brkaa\,nopok\,aslraoagboqbgsakq
48 datalsrreoegfoqfgsekq,rolrcocgdoqdgsckq,rorrgogghoqhgsgkq,"",#$ ,$ ,"$ "
49 data"$ ,x","$ ,y","$ ,x","($ ),y","($ ,x)","$ ,y",a,($ )
50 :
100 data 8192
101 data "lda #$00"
102 data "lda $0000"
103 data "lda $00"
104 data "lda $0000,x"
105 data "lda $0000,y"
106 data "lda $00,x"
107 data "lda ($00,x)"
108 data "lda ($00),y"
109 data "ldx #$00"
110 data "ldx $0000"
111 data "ldx $00"
112 data "ldx $0000,y"
113 data "ldx $00,y"
114 data "ldy #$00"
115 data "ldy $0000"
116 data "ldy $00"
117 data "ldy $0000,x"
118 data "ldy $00,x"
119 :
120 data "sta $0000"
121 data "sta $00"
122 data "sta $0000,x"
123 data "sta $0000,y"
124 data "sta $00,x"
125 data "sta ($00,x)"
126 data "sta ($00),y"
127 data "stx $0000"
128 data "stx $00"
129 data "stx $00,y"
130 data "sty $0000"
131 data "sty $00"
132 data "sty $00,x"
133 :
134 data "tax"
135 data "txa"
136 data "tay"
137 data "tya"
138 data "txs"
139 data "tsx"
140 :
141 data "adc #$00"
142 data "adc $0000"
143 data "adc $00"
144 data "adc $0000,x"
145 data "adc $0000,y"
146 data "adc $00,x"
147 data "adc ($00,x)"
148 data "adc ($00),y"
149 data "sbc #$00"
150 data "sbc $0000"
151 data "sbc $00"
152 data "sbc $0000,x"
153 data "sbc $0000,y"
154 data "sbc $00,x"
155 data "sbc ($00,x)"
156 data "sbc ($00),y"
157 :
158 data "and #$00"
159 data "and $0000"
160 data "and $00"
161 data "and $0000,x"
162 data "and $0000,y"
163 data "and $00,x"
164 data "and ($00,x)"
165 data "and ($00),y"
166 data "ora #$00"
167 data "ora $0000"
168 data "ora $00"
169 data "ora $0000,x"
170 data "ora $0000,y"
171 data "ora $00,x"
172 data "ora ($00,x)"
173 data "ora ($00),y"
174 data "eor #$00"
175 data "eor $0000"
176 data "eor $00"
177 data "eor $0000,x"
178 data "eor $0000,y"
179 data "eor $00,x"
180 data "eor ($00,x)"
181 data "eor ($00),y"
182 :
183 data "inx"
184 data "iny"
185 data "dex"
186 data "dey"
187 data "inc $0000"
188 data "inc $00"
189 data "inc $0000,x"
190 data "inc $00,x"
191 data "dec $0000"
192 data "dec $00"
193 data "dec $0000,x"
194 data "dec $00,x"
195 :
196 data "asl a"
197 data "asl $0000"
198 data "asl $00"
199 data "asl $0000,x"
200 data "asl $00,x"
201 data "lsr a"
202 data "lsr $0000"
203 data "lsr $00"
204 data "lsr $0000,x"
205 data "lsr $00,x"
206 data "rol a"
207 data "rol $0000"
208 data "rol $00"
209 data "rol $0000,x"
210 data "rol $00,x"
211 data "ror a"
212 data "ror $0000"
213 data "ror $00"
214 data "ror $0000,x"
215 data "ror $00,x"
216 :
217 data "cmp #$00"
218 data "cmp $0000"
219 data "cmp $00"
220 data "cmp $0000,x"
221 data "cmp $0000,y"
222 data "cmp $00,x"
223 data "cmp ($00,x)"
224 data "cmp ($00),y"
225 data "cpx #$00"
226 data "cpx $0000"
227 data "cpx $00"
228 data "cpy #$00"
229 data "cpy $0000"
230 data "cpy $00"
231 :
232 data "beq #$00"
233 data "bne #$00"
234 data "bcs #$00"
235 data "bcc #$00"
236 data "bmi #$00"
237 data "bpl #$00"
238 data "bvs #$00"
239 data "bvc #$00"
240 :
241 data "clc"
242 data "sec"
243 data "cld"
244 data "sed"
245 data "cli"
246 data "sei"
247 data "clv"
248 :
249 data "jmp $0000"
250 data "jmp ($0000)"
251 :
252 data "jsr $0000"
253 data "rts"
254 :
255 data "pha"
256 data "pla"
257 data "php"
258 data "plp"
259 :
260 data "rti"
261 data "brk"
262 :
263 data "bit $0000"
264 data "bit $00"
265 data "nop"